home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / actassst / activeas.fr_ / activeas.fr (.txt)
Encoding:
Visual Basic Form  |  1998-03-05  |  6.1 KB  |  184 lines
  1. VERSION 5.00
  2. Object = "{E384FCCE-B364-11D1-887B-006097819A51}#7.0#0"; "ActiveAssistant.ocx"
  3. Begin VB.Form ActAss_Ex3 
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "ActiveAssistant - Example 3"
  7.    ClientHeight    =   3495
  8.    ClientLeft      =   2715
  9.    ClientTop       =   4950
  10.    ClientWidth     =   6735
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3495
  15.    ScaleWidth      =   6735
  16.    Begin ActiveAssistantControl.Assistant Assistant1 
  17.       Index           =   0
  18.       Left            =   0
  19.       Top             =   840
  20.       _ExtentX        =   635
  21.       _ExtentY        =   635
  22.       BeginProperty BalloonFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  23.          Name            =   "MS Sans Serif"
  24.          Size            =   8.25
  25.          Charset         =   0
  26.          Weight          =   400
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       Caption         =   "Assistant1"
  32.       FrameDelay      =   100
  33.       AssistantLeft   =   13050
  34.       AssistantTop    =   345
  35.       Reduced         =   -1  'True
  36.    End
  37.    Begin VB.CommandButton cmdSSend 
  38.       Caption         =   "End"
  39.       Height          =   495
  40.       Left            =   4680
  41.       TabIndex        =   3
  42.       Top             =   2880
  43.       Width           =   1575
  44.    End
  45.    Begin VB.CommandButton cmdssstop 
  46.       Caption         =   "Stop"
  47.       Height          =   495
  48.       Left            =   2640
  49.       TabIndex        =   2
  50.       Top             =   2880
  51.       Width           =   1575
  52.    End
  53.    Begin VB.CommandButton cmdSSPlay 
  54.       Caption         =   "Play"
  55.       Height          =   495
  56.       Left            =   480
  57.       TabIndex        =   1
  58.       Top             =   2880
  59.       Width           =   1575
  60.    End
  61.    Begin ActiveAssistantControl.Assistant Assistant1 
  62.       Index           =   1
  63.       Left            =   0
  64.       Top             =   1320
  65.       _ExtentX        =   635
  66.       _ExtentY        =   635
  67.       BeginProperty BalloonFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  68.          Name            =   "MS Sans Serif"
  69.          Size            =   8.25
  70.          Charset         =   0
  71.          Weight          =   400
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.       Caption         =   "Assistant1"
  77.       FrameDelay      =   100
  78.       AssistantLeft   =   13050
  79.       AssistantTop    =   345
  80.       Reduced         =   -1  'True
  81.    End
  82.    Begin ActiveAssistantControl.Assistant Assistant1 
  83.       Index           =   2
  84.       Left            =   0
  85.       Top             =   1680
  86.       _ExtentX        =   635
  87.       _ExtentY        =   635
  88.       BeginProperty BalloonFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  89.          Name            =   "MS Sans Serif"
  90.          Size            =   8.25
  91.          Charset         =   0
  92.          Weight          =   400
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       Caption         =   "Assistant1"
  98.       FrameDelay      =   100
  99.       AssistantLeft   =   13050
  100.       AssistantTop    =   345
  101.       Reduced         =   -1  'True
  102.    End
  103.    Begin VB.Image cmdssassist 
  104.       Height          =   2055
  105.       Index           =   2
  106.       Left            =   4680
  107.       Picture         =   "ActiveAss_Ex3.frx":0000
  108.       Stretch         =   -1  'True
  109.       Top             =   600
  110.       Width           =   1695
  111.    End
  112.    Begin VB.Image cmdssassist 
  113.       Height          =   2040
  114.       Index           =   1
  115.       Left            =   2520
  116.       Picture         =   "ActiveAss_Ex3.frx":2783
  117.       Stretch         =   -1  'True
  118.       Top             =   600
  119.       Width           =   1725
  120.    End
  121.    Begin VB.Image cmdssassist 
  122.       Height          =   2070
  123.       Index           =   0
  124.       Left            =   360
  125.       Picture         =   "ActiveAss_Ex3.frx":4F47
  126.       Stretch         =   -1  'True
  127.       Top             =   600
  128.       Width           =   1785
  129.    End
  130.    Begin VB.Label Label1 
  131.       Alignment       =   2  'Center
  132.       BackColor       =   &H0080FFFF&
  133.       Caption         =   "Please select an Assisistant and click on Play"
  134.       BeginProperty Font 
  135.          Name            =   "MS Sans Serif"
  136.          Size            =   9.75
  137.          Charset         =   0
  138.          Weight          =   700
  139.          Underline       =   0   'False
  140.          Italic          =   0   'False
  141.          Strikethrough   =   0   'False
  142.       EndProperty
  143.       Height          =   255
  144.       Left            =   240
  145.       TabIndex        =   0
  146.       Top             =   120
  147.       Width           =   6255
  148.    End
  149. Attribute VB_Name = "ActAss_Ex3"
  150. Attribute VB_GlobalNameSpace = False
  151. Attribute VB_Creatable = False
  152. Attribute VB_PredeclaredId = True
  153. Attribute VB_Exposed = False
  154. Public AssIndex As Integer
  155. Private Sub cmdSSAssist_Click(Index As Integer)
  156.     AssIndex = Index
  157. End Sub
  158. Private Sub cmdSSEnd_Click()
  159.     End
  160. End Sub
  161. Private Sub cmdSSPlay_Click()
  162. Dim FrCount As Integer
  163.     If Not Assistant1(AssIndex).IsAnimationPlaying Then
  164.         Assistant1(AssIndex).StopAnimation
  165.         FrCount = Assistant1(AssIndex).FrameCount
  166.         Assistant1(AssIndex).AssistantMaxHeight = Assistant1(AssIndex).FrameHeight * Screen.TwipsPerPixelY
  167.         Assistant1(AssIndex).AssistantMaxWidth = Assistant1(AssIndex).FrameWidth * Screen.TwipsPerPixelX
  168.         Assistant1(AssIndex).PlayAnimation 1, FrCount, True
  169.     End If
  170.     Me.SetFocus
  171. End Sub
  172. Private Sub cmdSSStop_Click()
  173.     Assistant1(AssIndex).StopAnimation
  174.     ''Assistant1(AssIndex).Visible = False
  175.     Assistant1(AssIndex).AssistantHide
  176. End Sub
  177. Private Sub Command1_Click()
  178. End Sub
  179. Private Sub Form_Load()
  180.     Assistant1(0).LoadAnimationFile App.Path & "\dragon.bmp", 9
  181.     Assistant1(1).LoadAnimationFile App.Path & "\worm.bmp", 20
  182.     Assistant1(2).LoadAnimationFile App.Path & "\goldfish.bmp", 9
  183. End Sub
  184.